home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Libraries / CW TCL port package 1.9 / *TCL source.diff < prev    next >
Text File  |  1995-09-27  |  37KB  |  2,132 lines
  1. r(Supplementary Info)
  2. fCApplication AE fns.doc
  3. i
  4. fCClipboard AE fns.doc
  5. i
  6. fCDocument AE fns.doc
  7. i
  8. fCEnvirons.doc
  9. i
  10. fCFileElement.doc
  11. i
  12. fConstructors & Destructors.doc
  13. i
  14. fConverting To TCL 2.0.doc
  15. i
  16. fCPICTGridDirector.doc
  17. i
  18. fCSaver.doc
  19. i
  20. fCSimpleSaver.doc
  21. i
  22. fCSwitchboard AE fns.doc
  23. i
  24. fCWindow AE fns.doc
  25. i
  26. fResource TMPLs.doc
  27. i
  28. fUsing CSaver with CList.doc
  29. i
  30. fUsing CSaver.doc
  31. i
  32. o
  33. rApple Event Classes
  34. fCAppleEvent.cp
  35. i
  36. fCAppleEvent.h
  37. i
  38. fCAppleEventObject.cpp
  39. x240717599,240639642
  40. c0,26
  41. a#if mc68881
  42. c28,480
  43. a    long i;
  44. a    for (i = 1; i <= num; i++)
  45. c482,943
  46. a #if mc68881
  47. c945,1511
  48. a    //memcpy(data, *desc->dataHandle, dataSize);            // •• CW TCL
  49. a    TCLpstrncpy(data, *desc->dataHandle, dataSize);
  50. c1513,1549
  51. a            //memcpy(str+1, *strDesc.dataHandle, len);            // •• CW TCL
  52. a            TCLpstrncpy(str+1, *strDesc.dataHandle, len);
  53. c1551,1554
  54. a            //memcpy(str, *strDesc.dataHandle, len);            // •• CW TCL
  55. a            TCLpstrncpy(str, *strDesc.dataHandle, len);
  56. c1556,2808
  57. e
  58. fCAppleEventObject.h
  59. i
  60. fCAppleEventSender.cpp
  61. i
  62. fCAppleEventSender.h
  63. i
  64. fCFileElement.cpp
  65. i
  66. fCFileElement.h
  67. i
  68. fCProperty.cpp
  69. i
  70. fCProperty.h
  71. x454986597,11585116
  72. c0,18
  73. aclass CProperty 
  74. a#ifndef TCL_COMPILER_EXCEPTIONS
  75. aTCL_AUTO_DESTRUCT_OBJECT , 
  76. a#else
  77. a : 
  78. a#endif
  79. apublic CAppleEventObject
  80. c22,22
  81. c20,49
  82. e
  83. fCWatchDesc.cpp
  84. i
  85. fCWatchDesc.h
  86. i
  87. o
  88. rBedrock Exception Library
  89. fBEL #includes.cpp
  90. i
  91. rBRCommon
  92. fBRCommon.h
  93. i
  94. fBRMacWin.h
  95. i
  96. fBRMath.h
  97. i
  98. fBRPriMem.h
  99. i
  100. fBRPriStr.h
  101. i
  102. fBRStdDef.h
  103. i
  104. o
  105. rBRDebug
  106. fBRDbgStr.h
  107. i
  108. o
  109. rBRExcLib
  110. rHeaders
  111. fBRAutoDe.h
  112. i
  113. fBRBedExc.h
  114. i
  115. fBRBreakC.h
  116. i
  117. fBRDelSta.h
  118. i
  119. fBRExcDef.h
  120. i
  121. fBRExcept.h
  122. i
  123. fBRExcLib.h
  124. i
  125. fBRExcLog.h
  126. i
  127. fBRExcRun.h
  128. x384479718,434682536
  129. c0,35
  130. aextern void BRterminate();            // •• CW TCL 1.9 renamed due to conflict in MWExceptions.cp
  131. aextern void BRunexpected();
  132. c38,38
  133. aextern PFV BRset_terminate(PFV);
  134. aextern PFV BRset_unexpected(PFV);    // •• CW TCL 1.9 renamed due to conflict in MWExceptions.cp
  135. c38,38
  136. c42,116
  137. e
  138. fBRExcTas.h
  139. i
  140. fBRNewHel.h
  141. i
  142. fBROnStac.h
  143. x309072200,423230434
  144. c0,19
  145. a#ifdef __MWERKS__                    // •• CW TCL 1.7
  146. a    int _BR_BedIsOnStack(void *);    // •• CW TCL 1.7
  147. a#else                                // •• CW TCL 1.7
  148. c20,22
  149. a#endif                                // •• CW TCL 1.7
  150. c23,154
  151. e
  152. fBRPostEx.h
  153. i
  154. fBRPriDeb.h
  155. i
  156. fBRSExcep.h
  157. i
  158. fBRSExcLo.h
  159. i
  160. fBRSPostE.h
  161. i
  162. fBRTryBlo.h
  163. i
  164. o
  165. o
  166. rBRRunTyp
  167. fBRClaInf.h
  168. i
  169. fBRRunTyp.h
  170. i
  171. o
  172. rBRTaskG
  173. fBRBedTas.h
  174. i
  175. fBRTaskG.h
  176. i
  177. o
  178. rSource
  179. fBRAutoDe.cpp
  180. i
  181. fBRBedExc.cpp
  182. i
  183. fBrBedTas.cpp
  184. i
  185. fBRBreakC.cpp
  186. i
  187. fBRClaInf.cpp
  188. x392946245,408575046
  189. c0,140
  190. a#ifdef TCL_USE_BEL            // •• CW TCL
  191. c141,141
  192. a#endif                        // •• CW TCL
  193. c143,260
  194. e
  195. fBRDelSta.cpp
  196. i
  197. fBRExcept.cpp
  198. i
  199. fBRExcLog.cpp
  200. i
  201. fBRExcRun.cpp
  202. x272124776,229387064
  203. c0,69
  204. avoid BRterminate()
  205. c71,77
  206. avoid BRunexpected()
  207. c79,85
  208. aPFV BRset_terminate(PFV terminate)
  209. c87,90
  210. aPFV BRset_unexpected(PFV unexpected)
  211. c92,101
  212. a//#endif                    // •• CW TCL 1.9 _BR_BedIsOnStack was not defined for 68K
  213. a//#ifdef TCL_POWER_PC        // •• CW TCL
  214. a#else                        // •• CW TCL
  215. c104,221
  216. a        BRterminate();
  217. c223,248
  218. a        BRunexpected();
  219. c246,246
  220. c251,269
  221. a        BRterminate();
  222. c271,297
  223. a        BRunexpected();
  224. c295,295
  225. c300,347
  226. a        BRunexpected();
  227. c345,345
  228. c350,402
  229. e
  230. fBRExcTas.cpp
  231. i
  232. fBRNewHel.cpp
  233. i
  234. fBRPostEx.cpp
  235. i
  236. fBRPriMem.cpp
  237. i
  238. fBRPriStr.cpp
  239. i
  240. fBRTryBlo.cpp
  241. x276351068,367260224
  242. c0,27
  243. a//#pragma trace off        // •• CW TCL
  244. c29,92
  245. e
  246. o
  247. o
  248. rControl Classes
  249. fCArrowPopupPane.cp
  250. x4046896,4046897
  251. c0,31
  252. c33,33
  253. c32,157
  254. e
  255. fCArrowPopupPane.h
  256. i
  257. fCButton.cp
  258. x256872469,256872470
  259. c0,38
  260. c40,40
  261. c39,361
  262. e
  263. fCButton.h
  264. i
  265. fCCheckBox.cp
  266. x280935936,280935937
  267. c0,29
  268. c31,31
  269. c30,224
  270. e
  271. fCCheckBox.h
  272. i
  273. fCGroupButton.cpp
  274. i
  275. fCGroupButton.h
  276. i
  277. fCGroupButtonEnclosure.cpp
  278. x464612958,144183717
  279. c0,15
  280. a#ifdef __MWERKS__                        // •• CW TCL 1.6
  281. a#include "CPtrArray.tem"                // •• CW TCL 1.6
  282. a#endif                                    // •• CW TCL 1.6
  283. c18,18
  284. c28,28
  285. c17,82
  286. e
  287. fCGroupButtonEnclosure.h
  288. i
  289. fCIconPane.cp
  290. x53091011,53091012
  291. c0,56
  292. c58,58
  293. c57,418
  294. e
  295. fCIconPane.h
  296. i
  297. fCPopupMenu.cp
  298. x467085645,467085646
  299. c0,36
  300. c38,38
  301. c37,753
  302. e
  303. fCPopupMenu.h
  304. i
  305. fCPopupPane.cp
  306. i
  307. fCPopupPane.h
  308. i
  309. fCRadioControl.cp
  310. x453720107,453720108
  311. c0,26
  312. c28,28
  313. c27,240
  314. e
  315. fCRadioControl.h
  316. i
  317. fCRadioGroupPane.cp
  318. x327955371,327955372
  319. c0,28
  320. c30,30
  321. c29,190
  322. e
  323. fCRadioGroupPane.h
  324. i
  325. fCStdPopupPane.cp
  326. i
  327. fCStdPopupPane.h
  328. i
  329. o
  330. rCore Classes
  331. rCore Headers
  332. fCApplication.h
  333. i
  334. fCArray.h
  335. i
  336. fCArrayIterator.h
  337. i
  338. fCBartender.h
  339. i
  340. fCBureaucrat.h
  341. i
  342. fCChore.h
  343. i
  344. fCClipboard.h
  345. i
  346. fCCollaborator.h
  347. i
  348. fCCollection.h
  349. i
  350. fCControl.h
  351. i
  352. fCDecorator.h
  353. i
  354. fCDesktop.h
  355. i
  356. fCDirector.h
  357. i
  358. fCDirectorOwner.h
  359. i
  360. fCDocument.h
  361. i
  362. fCEnvironment.h
  363. i
  364. fCEnvirons.h
  365. i
  366. fCError.h
  367. i
  368. fCFile.h
  369. i
  370. fCMBarChore.h
  371. i
  372. fCMouseTask.h
  373. i
  374. fCommands.h
  375. i
  376. fConstants.h
  377. i
  378. fCPane.h
  379. i
  380. fCPaneBorder.h
  381. i
  382. fCPanorama.h
  383. i
  384. fCPicture.h
  385. i
  386. fCPrinter.h
  387. i
  388. fCRunArray.h
  389. i
  390. fCScrollBar.h
  391. i
  392. fCScrollPane.h
  393. i
  394. fCSimpleSaver.h
  395. i
  396. fCSizeBox.h
  397. i
  398. fCSwitchboard.h
  399. i
  400. fCTask.h
  401. i
  402. fCView.h
  403. x439273972,288765429
  404. c0,47
  405. a#ifndef __MWERKS__                        // •• CW TCL 1.6: why was this there, anyway?
  406. c48,48
  407. a#endif                                    // •• CW TCL 1.6
  408. c49,181
  409. e
  410. fCVoidPtrArray.h
  411. i
  412. fCVoidPtrArrayIterator.h
  413. i
  414. fCWindow.h
  415. i
  416. fGlobal.h
  417. i
  418. o
  419. rCore Sources
  420. fCApplication.asm
  421. i
  422. fCApplication.cp
  423. x292677699,507193167
  424. c0,59
  425. a#include "TCLpstring.h"                    // •• CW TCL: added missing header
  426. c60,72
  427. a#ifdef __MWERKS__                        // •• CW TCL 1.6
  428. a#include "CPtrArray.tem"                // •• CW TCL 1.6
  429. a#endif                                    // •• CW TCL 1.6
  430. c74,74
  431. c73,500
  432. a#ifndef TCL_NO_PATCHES                    // •• CW TCL: okay, mostly no patches
  433. c501,503
  434. a#endif                                    // •• CW TCL
  435. c525,525
  436. c506,506
  437. c509,509
  438. c529,529
  439. c508,520
  440. a#ifndef TCL_NO_PATCHES                        // •• CW TCL
  441. c521,522
  442. a#endif                                        // •• CW TCL
  443. c527,527
  444. c553,553
  445. c588,588
  446. c526,2428
  447. a            while (iter.Next((void*&) doc))
  448. c2430,2464
  449. a            while (iter.Next((void*&) doc))
  450. c2466,2472
  451. a#if defined(__MWERKS__) && !defined(TCL_POWER_PC) \
  452. a            && !defined(TCL_NO_PATCHES)                    // •• CW TCL
  453. a#include "CApplication.asm"                                // •• CW TCL
  454. a#endif                                                    // •• CW TCL
  455. c2472,2472
  456. e
  457. fCArray.cp
  458. x159480452,159480453
  459. c0,39
  460. c41,41
  461. c40,593
  462. e
  463. fCArrayIterator.cp
  464. i
  465. fCBartender.cp
  466. i
  467. fCBureaucrat.cp
  468. i
  469. fCChore.cp
  470. i
  471. fCClipboard.cp
  472. i
  473. fCCollaborator.cp
  474. x115295655,281578369
  475. c0,34
  476. a#ifdef __MWERKS__                            // •• CW TCL 1.6
  477. a#include "CPtrArray.tem"                    // •• CW TCL 1.6
  478. a#endif                                        // •• CW TCL 1.6
  479. c35,78
  480. a        while (iter.Next((void*&) aDependent))
  481. c80,88
  482. a        while (iter.Next((void*&) aProvider))
  483. c90,260
  484. a        while (iter.Next((void*&) aDependent))
  485. c262,311
  486. e
  487. fCCollection.cp
  488. i
  489. fCControl.cp
  490. i
  491. fCDecorator.cp
  492. i
  493. fCDesktop.cp
  494. x414255847,184475768
  495. c0,49
  496. a#include "TCLUtilities.h"                // •• CW TCL
  497. c50,55
  498. a#include <stdlib.h>                        // •• CW TCL 1.9
  499. c57,57
  500. c56,80
  501. a#ifdef __MWERKS__                            // •• CW TCL 1.6
  502. a#include "CPtrArray.tem"                    // •• CW TCL 1.6
  503. a#endif                                        // •• CW TCL 1.6
  504. c88,88
  505. c81,1059
  506. a    return((TCLAbs( (long) pointA.h - pointB.h) < REASONABLY_CLOSE)  &&        // •• CW TCL
  507. a            (TCLAbs( (long) pointA.v - pointB.v) < REASONABLY_CLOSE) );
  508. c1062,1222
  509. e
  510. fCDirector.cp
  511. i
  512. fCDirectorOwner.cp
  513. x431357368,322791396
  514. c0,26
  515. a#ifdef __MWERKS__                            // •• CW TCL 1.6
  516. a#include "CPtrArray.tem"                    // •• CW TCL 1.6
  517. a#endif                                        // •• CW TCL 1.6
  518. c27,219
  519. e
  520. fCDocument.cp
  521. x213306551,142891465
  522. c0,339
  523. ashort i;
  524. c348,348
  525. a    for (i = 0; i < gApplication->sfNumTypes; i++)
  526. c341,490
  527. a    *lastPage = Min(*lastPage, (long)PageCount());
  528. c492,1253
  529. e
  530. fCEnvironment.cp
  531. x505569526,505569527
  532. c0,29
  533. c31,31
  534. c30,57
  535. e
  536. fCEnvirons.cpp
  537. x262639258,262639259
  538. c0,38
  539. c40,40
  540. c39,252
  541. e
  542. fCError.cp
  543. i
  544. fCFile.cp
  545. i
  546. fCMBarChore.cp
  547. i
  548. fCMouseTask.cp
  549. i
  550. fCPane.cp
  551. x383470948,145841604
  552. c0,31
  553. a#include "CStream.tem"    // •• CW TCL
  554. c33,33
  555. c32,41
  556. c43,43
  557. c42,1162
  558. a    CView::DoForEachDevice((DoForEachDeviceCallBack)&CPane::DrawAll, area);        // •• CW TCL 1.9
  559. c1168,1168
  560. c1165,2183
  561. e
  562. fCPaneBorder.cp
  563. x20248479,20248480
  564. c0,51
  565. c53,53
  566. c52,528
  567. e
  568. fCPanorama.cp
  569. x7403561,183958594
  570. c0,54
  571. c56,56
  572. c55,319
  573. a    hScale = Max(aHScale, (long)1);
  574. a    vScale = Max(aVScale, (long)1);
  575. c322,872
  576. e
  577. fCPicture.cp
  578. i
  579. fCPrinter.cp
  580. i
  581. fCRunArray.cp
  582. x485149650,485149651
  583. c0,43
  584. c45,45
  585. c44,552
  586. e
  587. fCScrollBar.cp
  588. i
  589. fCScrollPane.cp
  590. x610009,107709071
  591. c0,39
  592. a#include "CStream.tem"    // •• CW TCL
  593. c42,42
  594. c40,44
  595. c46,46
  596. c45,329
  597. a    hStep = Max((long)hUnit, (long)hStep);    // •• CW TCL 1.9
  598. a    vStep = Max((long)vUnit, (long)vStep);    // •• CW TCL 1.9
  599. c332,419
  600. a            delta = Min(hOverlap - hSpan, (long)-1);    // •• CW TCL 1.9
  601. c421,424
  602. a            delta = Max(hSpan - hOverlap, (long)1);        // •• CW TCL 1.9
  603. c426,480
  604. a            delta = Min(vOverlap - vSpan, (long)-1);    // •• CW TCL 1.9
  605. c482,485
  606. a            delta = Max(vSpan - vOverlap, (long)1);        // •• CW TCL 1.9
  607. c487,703
  608. e
  609. fCSimpleSaver.cpp
  610. i
  611. fCSizeBox.cp
  612. i
  613. fCSwitchboard.cp
  614. i
  615. fCTask.cp
  616. i
  617. fCView.cp
  618. x440199180,331633209
  619. c0,74
  620. a#ifdef __MWERKS__                            // •• CW TCL 1.6
  621. a#include "CPtrArray.tem"                    // •• CW TCL 1.6
  622. a#endif                                        // •• CW TCL 1.6
  623. c77,77
  624. c89,91
  625. c78,1467
  626. e
  627. fCVoidPtrArray.cp
  628. i
  629. fCVoidPtrArrayIterator.cp
  630. i
  631. fCWindow.cp
  632. x89070441,491953694
  633. c0,65
  634. c67,67
  635. c66,1149
  636. a                                Max(hMax, (long)sizeRect.left);
  637. c1151,1151
  638. a                                Max(vMax, (long)sizeRect.top);
  639. c1153,1156
  640. a                    Max(dGDRect.left - zoomRect->left, (long)0),
  641. a                    Max(dGDRect.top - zoomRect->top, (long)0));
  642. c1159,1167
  643. a                            (long)zoomRect->left - dGDRect.left),
  644. a                        (long)0),
  645. c1166,1166
  646. c1171,1171
  647. a                            (long)zoomRect->top - dGDRect.top),
  648. a                        (long)0));
  649. c1174,1176
  650. a        zoomRect->right = Min(zoomRect->right, (long)dGDRect.right);
  651. a        zoomRect->bottom = Min(zoomRect->bottom, (long)dGDRect.bottom);
  652. c1179,1251
  653. a    width = Min(width, (long)sizeRect.right);
  654. a    height = Min(height, (long)sizeRect.bottom);
  655. a    width = Max(width, (long)sizeRect.left);
  656. a    height = Max(height, (long)sizeRect.top);
  657. c1245,1245
  658. c1257,1332
  659. a    CView::DoForEachDevice((DoForEachDeviceCallBack)&CWindow::UpdateDraw, NULL);
  660. c1322,1322
  661. c1335,1943
  662. e
  663. fGlobalVars.cp
  664. i
  665. o
  666. o
  667. rDialog Classes
  668. fCDialog.cp
  669. x78670314,78670315
  670. c0,37
  671. c39,39
  672. c38,608
  673. e
  674. fCDialog.h
  675. i
  676. fCDialogDirector.cp
  677. i
  678. fCDialogDirector.h
  679. i
  680. fCDialogText.cp
  681. x306881191,303799644
  682. c0,45
  683. c47,47
  684. c46,446
  685. a    short length = Min((**macTE).teLength, (long)255);
  686. c448,594
  687. e
  688. fCDialogText.h
  689. i
  690. fCDLOGDialog.cp
  691. x210485930,388085264
  692. c0,49
  693. a    //#include "pascal.h"                // •• CW TCL
  694. c51,567
  695. a        length = Min(ditlItem->itemLength - 1, (long)255);
  696. c569,615
  697. a        length = Min(ditlItem->itemLength - 1, (long)255);
  698. c617,914
  699. e
  700. fCDLOGDialog.h
  701. i
  702. fCDLOGDirector.cp
  703. i
  704. fCDLOGDirector.h
  705. i
  706. fCIntegerText.cp
  707. x251354307,251354308
  708. c0,47
  709. c49,49
  710. c48,342
  711. e
  712. fCIntegerText.h
  713. i
  714. o
  715. rFile Classes
  716. fCDataFile.cp
  717. i
  718. fCDataFile.h
  719. i
  720. fCPictFile.cp
  721. i
  722. fCPictFile.h
  723. i
  724. fCPNTGFile.cp
  725. i
  726. fCPNTGFile.h
  727. i
  728. fCResFile.cp
  729. i
  730. fCResFile.h
  731. i
  732. o
  733. fFixed in TCL 2.0.5
  734. i
  735. fFixed in TCL 2.0.6
  736. i
  737. rFW/Tearoffs
  738. fCCharGrid.cp
  739. i
  740. fCCharGrid.h
  741. i
  742. fCFWDesktop.cp
  743. i
  744. fCFWDesktop.h
  745. i
  746. fCGridSelector.cp
  747. i
  748. fCGridSelector.h
  749. i
  750. fCMenuDefProc.cp
  751. i
  752. fCMenuDefProc.h
  753. i
  754. fCPaneMDEF.cp
  755. i
  756. fCPaneMDEF.h
  757. i
  758. fCPatternGrid.cp
  759. i
  760. fCPatternGrid.h
  761. i
  762. fCSelector.cp
  763. i
  764. fCSelector.h
  765. i
  766. fCSelectorMDEF.cp
  767. i
  768. fCSelectorMDEF.h
  769. i
  770. fCTearChore.cp
  771. i
  772. fCTearChore.h
  773. i
  774. fCTearOffMenu.cp
  775. i
  776. fCTearOffMenu.h
  777. i
  778. fGenericMDEF.cp
  779. i
  780. fGenericMDEF.h
  781. i
  782. rWindoid WDEF ƒ
  783. fWindoidWDEF.c
  784. i
  785. fWindoidWDEF.h
  786. i
  787. o
  788. o
  789. rMore Classes
  790. fCBitMap.cp
  791. x487919953,487919954
  792. c0,25
  793. c27,27
  794. c26,436
  795. e
  796. fCBitMap.h
  797. i
  798. fCBitMapPane.cp
  799. x101386957,101386958
  800. c0,17
  801. c19,19
  802. c18,219
  803. e
  804. fCBitMapPane.h
  805. i
  806. fCTextEnvirons.cp
  807. x407147022,407147023
  808. c0,26
  809. c28,28
  810. c27,179
  811. e
  812. fCTextEnvirons.h
  813. i
  814. o
  815. rObject I/O
  816. rHeaders
  817. fCBufferedStream.h
  818. i
  819. fCCountingStream.h
  820. i
  821. fCFileStream.h
  822. i
  823. fCHandleStream.h
  824. i
  825. fCSaver.h
  826. i
  827. fCSaver.tem
  828. i
  829. fCStream.h
  830. i
  831. fCString.h
  832. i
  833. fReference.h
  834. i
  835. fStreamResources.h
  836. i
  837. o
  838. rSource
  839. fCBufferedStream.cp
  840. i
  841. fCCountingStream.cp
  842. i
  843. fCFileStream.cp
  844. i
  845. fCHandleStream.cp
  846. i
  847. fCSaver.cp
  848. i
  849. fCStream.cp
  850. x259222566,215240540
  851. c0,25
  852. a#ifndef __MWERKS__                        // •• CW TCL
  853. c26,26
  854. a#else                                    // •• CW TCL
  855. a#ifndef TCL_POWER_PC                    // •• CW TCL
  856. a#include <ThinkSANE.h>                    // •• CW TCL: Symantec's version of <SANE.h> is different
  857. a#endif                                    // •• CW TCL:      grrr....
  858. a#endif                                    // •• CW TCL
  859. c27,33
  860. a//#include <Pascal.h>                    // •• CW TCL: <Pascal.h> not used
  861. c35,1006
  862. a    PutStr((CString&)s);
  863. c1008,1008
  864. e
  865. fCString.cpp
  866. x41588877,109198660
  867. c0,11
  868. aBoolean pstreq(char *s, const unsigned char *str);    // •• CW TCL
  869. c18,18
  870. c12,174
  871. e
  872. o
  873. o
  874. rPrecompiled Headers
  875. o
  876. rTable Classes
  877. fCArrayPane.cp
  878. x42500743,42500744
  879. c0,26
  880. c28,28
  881. c27,283
  882. e
  883. fCArrayPane.h
  884. i
  885. fCTable.cp
  886. x454464677,263601346
  887. c0,67
  888. c69,69
  889. c68,512
  890. a        afterRow = Min(afterRow, (long)tableBounds.bottom-1);
  891. a        afterRow = Max(afterRow, (long)-1);
  892. c515,557
  893. a        afterCol = Min(afterCol, (long)tableBounds.right-1);
  894. a        afterCol = Max(afterCol, (long)-1);
  895. c560,606
  896. a        startRow = Min(tableBounds.bottom -1, (long)startRow);
  897. a        numRows = Min(numRows, tableBounds.bottom - (long)startRow);
  898. c606,606
  899. c610,645
  900. a        startCol = Min(tableBounds.right -1, (long)startCol);
  901. a        numCols = Min(numCols, tableBounds.right - (long)startCol);
  902. c641,641
  903. c649,2284
  904. e
  905. fCTable.h
  906. i
  907. fCTableBorder.cp
  908. x196333494,196333495
  909. c0,15
  910. c17,17
  911. c16,120
  912. e
  913. fCTableBorder.h
  914. i
  915. fCTableDragger.cp
  916. i
  917. fCTableDragger.h
  918. i
  919. o
  920. fTCL #includes.cpp
  921. x428444888,206358967
  922. c0,29
  923. a//#define TCL_USE_BEL                // define to use Bedrock Exception Library    // •• CW TCL
  924. c31,42
  925. a//#define BR_DEBUG                    // if debugging BEL
  926. c44,112
  927. a//#pragma template_access extern
  928. c112,112
  929. c115,116
  930. a#ifndef __MWERKS__                            // •• CW TCL: already included
  931. c117,117
  932. a#endif                                        // •• CW TCL
  933. c116,116
  934. c119,170
  935. a//#ifndef __pascal__                        // •• CW TCL
  936. a//#include <pascal.h>                        // •• CW TCL
  937. a//#endif                                    // •• CW TCL
  938. c174,196
  939. a#ifndef TCL_NO_PRECOMPILED_CLASS            // •• CW TCL
  940. c197,205
  941. a#endif                                        // •• CW TCL
  942. c206,214
  943. a#ifndef TCL_NO_PRECOMPILED_CLASS            // •• CW TCL
  944. a#ifndef TCL_NO_PRECOMPILED_TEMPLATES        // •• CW TCL
  945. c215,270
  946. a#endif // #ifndef TCL_NO_PRECOMPILED_TEMPLATES        // •• CW TCL
  947. a#endif // TCL_NO_PRECOMPILED_CLASS                    // •• CW TCL
  948. c271,271
  949. c273,273
  950. e
  951. rTCL Libraries
  952. rTCL Library headers
  953. fCException.h
  954. i
  955. fExceptions.h
  956. x467410721,96312496
  957. c0,111
  958. a#ifdef TCL_USE_BEL                // •• CW TCL
  959. c112,112
  960. a#endif                            // •• CW TCL
  961. c113,226
  962. a#define try_ try {
  963. c228,229
  964. a    } catch(class *error) \
  965. c231,234
  966. a    } catch(class& error) \
  967. c236,239
  968. a    } catch(class) \
  969. c146,146
  970. c242,244
  971. a    } catch(...) \
  972. c146,146
  973. c242,243
  974. c249,253
  975. a#define throw_same_() throw                        // •• CW TCL
  976. c251,251
  977. c256,305
  978. avoid _TCL_CheckPtr(const void *ptr);                        // •• CW TCL 1.6: corrected prototype
  979. avoid _TCL_CheckObjectPtr(const void* ptr);                    // •• CW TCL 1.6
  980. c308,308
  981. avoid __TCL_DebugCStr(const char *message);                    // •• CW TCL 1.9: corrected prototype
  982. c302,302
  983. c310,350
  984. e
  985. fLongCoordinates.h
  986. i
  987. fLongQD.h
  988. i
  989. fOSChecks.h
  990. i
  991. fqsort++.h
  992. i
  993. fTBUtilities.h
  994. i
  995. fTCL.h
  996. i
  997. fTCLClassInfo.h
  998. x272181950,514409942
  999. c0,14
  1000. a#ifdef __MWERKS__                                                        // CW TCL: JAJ
  1001. c20,20
  1002. c15,15
  1003. a        void* _TCLNew##name(); \
  1004. c16,21
  1005. a        void* _TCLNew##name(); \
  1006. c22,27
  1007. a#else                                                                    // CW TCL: JAJ
  1008. c35,35
  1009. c15,25
  1010. a#endif    
  1011. c41,41
  1012. c43,43
  1013. c111,111
  1014. c29,154
  1015. e
  1016. fTCLForceReferences.h
  1017. i
  1018. fTCLNulls.h
  1019. i
  1020. fTCLpstrcmp.h
  1021. i
  1022. fTCLpstring.h
  1023. i
  1024. fTCLUtilities.h
  1025. i
  1026. o
  1027. rTCL Library sources
  1028. falloc.cp
  1029. x426293483,64709795
  1030. c0,18
  1031. a#ifndef TCL_USE_MW_OPER_NEW                        // •• CW TCL 1.6
  1032. c19,19
  1033. a#endif                                            // •• CW TCL 1.6
  1034. c20,23
  1035. a#ifdef __MWERKS__                                // •• CW TCL
  1036. a#define TCL_NO_INSPECTOR                        // •• CW TCL
  1037. aBoolean __MMPrimitiveAllocate = 0;                // •• CW TCL 1.6
  1038. a#endif                                            // •• CW TCL
  1039. c27,27
  1040. a#if defined(__TCL_DEBUG__) && !defined(TCL_NO_INSPECTOR)
  1041. c25,32
  1042. c34,34
  1043. a#ifdef TCL_USE_MW_OPER_NEW                        // •• CW TCL 1.6
  1044. a#define OPERATOR_NEW _cw_operator_new            // •• CW TCL 1.6
  1045. a#define OPERATOR_DELETE _cw_operator_delete        // •• CW TCL 1.6
  1046. avoid *OPERATOR_NEW(size_t, void *p);            // •• CW TCL 1.6
  1047. avoid *OPERATOR_NEW(size_t size);                // •• CW TCL 1.6
  1048. avoid OPERATOR_DELETE(void *ptr);                // •• CW TCL 1.6
  1049. a#define NEWMODE NEWMODE_SIMPLE                    // •• CW TCL 1.7
  1050. c34,34
  1051. a#include <New.cp>                                // •• CW TCL 1.8
  1052. a#endif // __MWERKS__                            // •• CW TCL 1.6
  1053. c40,45
  1054. a#ifndef TCL_USE_MW_OPER_NEW                        // •• CW TCL 1.6
  1055. c46,46
  1056. c80,80
  1057. c47,48
  1058. a        p = malloc(objSize);
  1059. c45,45
  1060. c60,60
  1061. c86,86
  1062. a    else
  1063. a        p = malloc(objSize);
  1064. a#else                                            // •• CW TCL
  1065. a    p = OPERATOR_NEW(objSize);                    // •• CW TCL
  1066. a#endif                                            // •• CW TCL
  1067. c48,48
  1068. c62,78
  1069. a    TCL_ASSERT(objStorage != NULL);
  1070. c67,67
  1071. c81,81
  1072. a    __cp_ForgetCPlusObject(objStorage);                // <pcb> added for inspector.
  1073. c72,73
  1074. a#ifndef TCL_USE_MW_OPER_NEW                        // •• CW TCL 1.6
  1075. a    free(objStorage);
  1076. a#else                                            // •• CW TCL
  1077. a    OPERATOR_DELETE(objStorage);                // •• CW TCL
  1078. a#endif                                            // •• CW TCL
  1079. c75,75
  1080. e
  1081. fExceptions.cp
  1082. x106405378,371420444
  1083. c0,16
  1084. c24,24
  1085. c23,23
  1086. a#if defined(TCL_COMPILER_EXCEPTIONS)
  1087. a#define _NEW_EXCEPTIONS_
  1088. c39,39
  1089. c23,23
  1090. c26,26
  1091. c18,23
  1092. c25,51
  1093. a#ifndef __MWERKS__                            // •• CW TCL: not available in CodeWarrior
  1094. c52,52
  1095. a#endif                                        // •• CW TCL
  1096. c182,182
  1097. c54,111
  1098. a//#ifndef TCL_USE_BEL
  1099. a#ifndef _NEW_EXCEPTIONS_                    // •• CW TCL
  1100. c121,121
  1101. c115,180
  1102. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
  1103. c198,198
  1104. a#endif                                        // •• CW TCL
  1105. c199,200
  1106. c184,197
  1107. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
  1108. c215,215
  1109. a#endif                                        // •• CW TCL
  1110. c216,217
  1111. c201,214
  1112. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
  1113. c238,238
  1114. a#endif                                        // •• CW TCL
  1115. c239,240
  1116. c218,237
  1117. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
  1118. c258,258
  1119. a#endif                                        // •• CW TCL
  1120. c259,266
  1121. c247,257
  1122. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
  1123. c278,278
  1124. a#endif                                        // •• CW TCL
  1125. c279,286
  1126. c267,277
  1127. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
  1128. c181,181
  1129. a#endif                                        // •• CW TCL
  1130. c335,336
  1131. c241,246
  1132. c287,330
  1133. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
  1134. c331,331
  1135. a#endif                                        // •• CW TCL
  1136. c336,336
  1137. c333,341
  1138. a//#ifdef TCL_USE_BEL                            // Bedrock exceptions
  1139. a#ifdef _NEW_EXCEPTIONS_                    // •• CW TCL
  1140. c343,344
  1141. a    gDebugThrow = debugAction_Alert;
  1142. c345,368
  1143. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL: if we got here, there was no handler
  1144. a    DebugStr("\pFailure: No handler");        // •• CW TCL
  1145. a#endif                                        // •• CW TCL
  1146. c370,488
  1147. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
  1148. c489,489
  1149. a#endif                                        // •• CW TCL
  1150. c490,631
  1151. a#ifdef __MWERKS__                        // •• CW TCL
  1152. a#define pascal
  1153. a#endif                                    // •• CW TCL
  1154. c632,721
  1155. a    const char *s;
  1156. c722,725
  1157. a    for (s = msg; *s && (s-msg) < 255; s++)
  1158. c727,730
  1159. e
  1160. fLongCoordinates.cp
  1161. i
  1162. fLongQD.cp
  1163. i
  1164. fOSChecks.cp
  1165. x169208839,288713412
  1166. c0,136
  1167. a#ifdef __MWERKS__                            // •• CW TCL
  1168. astatic void AsmCacheFlush()                    // •• CW TCL
  1169. a    ONEWORDINLINE(_CacheFlushTrap);            // •• CW TCL
  1170. a#endif                                        // •• CW TCL
  1171. c137,141
  1172. c2,2
  1173. a#ifndef TCL_POWER_PC                        // •• CW TCL
  1174. a        AsmCacheFlush();
  1175. a#else                                        // •• CW TCL
  1176. a        CallOSTrapUniversalProc(GetOSTrapAddress(_CacheFlushTrap), kRegisterBased);
  1177. a#endif                                        // •• CW TCL
  1178. a        
  1179. c143,144
  1180. e
  1181. fqsort++.cp
  1182. i
  1183. fTBUtilities.cp
  1184. x68078017,161864322
  1185. c0,224
  1186. a    top = Max(top, LMGetMBarHeight() + (long)1);
  1187. c226,269
  1188. a    corner->v = Max(corner->v, LMGetMBarHeight() + (long)1);
  1189. c271,334
  1190. a    charsToCopy = Min(second[0], 255 - (long)first[0]);
  1191. c336,493
  1192. a    long     virtualKey, keyInfo, lowChar, highChar, keyCId;
  1193. a    unsigned long    state;            // •• CW TCL This had to be an unsigned long, why??
  1194. c495,655
  1195. e
  1196. fTCLpstrcmp.cp
  1197. i
  1198. fTCLpstring.cp
  1199. x152433003,138563418
  1200. c0,13
  1201. a//#include <BDC.h>                        // •• CW TCL: didn’t really need this anyway
  1202. c15,103
  1203. e
  1204. fTCLUtilities.asm
  1205. i
  1206. fTCLUtilities.cp
  1207. i
  1208. o
  1209. o
  1210. rTemplates
  1211. fCList.cpp
  1212. i
  1213. fCList.h
  1214. i
  1215. fCList.tem
  1216. i
  1217. fCListIterator.cp
  1218. i
  1219. fCListIterator.h
  1220. i
  1221. fCList_CView.cpp
  1222. x389682597,516546436
  1223. c0,2
  1224. a#ifdef TCL_OBJECT_IO                // •• CW TCL
  1225. a#include "CStream.tem"
  1226. a#include "PutObject1.tem"
  1227. a#endif                                // •• CW TCL
  1228. c4,4
  1229. a//#pragma template_access public    // •• CW TCL
  1230. c4,4
  1231. a//#pragma template CList<CView>        // •• CW TCL
  1232. a//#pragma template CList<CWindow>    // •• CW TCL
  1233. c7,7
  1234. avoid* _TCLNewCList_CView();            // •• CW TCL
  1235. avoid* _TCLNewCList_CWindow();        // •• CW TCL
  1236. c7,11
  1237. e
  1238. fCPtrArray.cp
  1239. i
  1240. fCPtrArray.h
  1241. i
  1242. fCPtrArray.tem
  1243. i
  1244. fCPtrArrayIterator.cpp
  1245. i
  1246. fCPtrArrayIterator.h
  1247. i
  1248. fCPtrArray_CChore.cpp
  1249. x279271734,237362088
  1250. c0,2
  1251. a#ifndef __MWERKS__                            // •• CW TCL 1.6
  1252. c3,5
  1253. a#else                                        // •• CW TCL 1.6
  1254. aclass CPtrArray<CChore>;                    // •• CW TCL 1.6
  1255. a#endif                                        // •• CW TCL 1.6
  1256. c6,9
  1257. e
  1258. fCPtrArray_CDirector.cpp
  1259. x270739850,319677311
  1260. c0,2
  1261. a//#pragma template_access public        // •• CW TCL
  1262. c4,4
  1263. a//#pragma template CPtrArray<CDirector>    // •• CW TCL
  1264. c4,4
  1265. c7,9
  1266. e
  1267. fCPtrArray_CView.cpp
  1268. x444711567,202624558
  1269. c0,3
  1270. a//#pragma template_access public                // •• CW TCL
  1271. c5,5
  1272. a//#pragma template CPtrArray<CCollaborator>        // •• CW TCL
  1273. a//#pragma template CPtrArray<CView>                // •• CW TCL
  1274. a//#pragma template CPtrArray<CWindow>            // •• CW TCL
  1275. a//#pragma template CPtrArray<CGroupButton>        // •• CW TCL
  1276. c5,5
  1277. c11,16
  1278. e
  1279. fCStream.tem
  1280. x151535939,133610641
  1281. c0,52
  1282. a//    if (strlen(name) == 0)            // •• CW TCL
  1283. a    if (name[0] == 0)
  1284. c54,106
  1285. e
  1286. fCStream_CBitMap.cpp
  1287. x490631420,516423053
  1288. c0,2
  1289. a//#pragma template_access public                    // •• CW TCL
  1290. c4,4
  1291. a//#pragma template PutObject(CStream&, CBitMap*)    // •• CW TCL
  1292. a//#pragma template GetObject(CStream&, CBitMap*&)    // •• CW TCL
  1293. c4,4
  1294. c8,8
  1295. e
  1296. fCStream_CCollaborator.cpp
  1297. x535514564,119740647
  1298. c0,2
  1299. a//#pragma template_access public                        // •• CW TCL
  1300. c4,4
  1301. a//#pragma template PutObject(CStream&, CCollaborator*)    // •• CW TCL
  1302. a//#pragma template GetObject(CStream&, CCollaborator*&)    // •• CW TCL
  1303. a//#pragma template PutObject(CStream&, CView*)            // •• CW TCL
  1304. a//#pragma template GetObject(CStream&, CView*&)            // •• CW TCL
  1305. a//#pragma template PutObject(CStream&, CWindow*)        // •• CW TCL
  1306. a//#pragma template GetObject(CStream&, CWindow*&)        // •• CW TCL
  1307. c4,4
  1308. c12,12
  1309. e
  1310. fCStream_CEnvironment.cpp
  1311. x518521852,280600021
  1312. c0,2
  1313. a//#pragma template_access public                        // •• CW TCL
  1314. c4,4
  1315. a//#pragma template PutObject(CStream&, CEnvironment*)    // •• CW TCL
  1316. a//#pragma template GetObject(CStream&, CEnvironment*&)    // •• CW TCL
  1317. c4,4
  1318. c8,8
  1319. e
  1320. fCStream_CEnvirons.cpp
  1321. x164286842,131478445
  1322. c0,2
  1323. a//#pragma template_access public                        // •• CW TCL
  1324. c4,4
  1325. a//#pragma template PutObject(CStream&, CEnvirons*)        // •• CW TCL
  1326. a//#pragma template GetObject(CStream&, CEnvirons*&)        // •• CW TCL
  1327. a    
  1328. c8,8
  1329. e
  1330. fCStream_CPaneBorder.cpp
  1331. x469483124,68182989
  1332. c0,2
  1333. a//#pragma template_access public                        // •• CW TCL
  1334. c4,4
  1335. a//#pragma template PutObject(CStream&, CPaneBorder*);    // •• CW TCL
  1336. a//#pragma template GetObject(CStream&, CPaneBorder*&);    // •• CW TCL
  1337. c4,4
  1338. c8,8
  1339. e
  1340. fPutObject1.cpp
  1341. x492085006,5115823
  1342. c0,2
  1343. a//#pragma template_access public                // •• CW TCL
  1344. c4,4
  1345. a//#pragma template PutObject1(CView*, long)        // •• CW TCL
  1346. a//#pragma template PutObject1(CWindow*, long)    // •• CW TCL
  1347. c4,4
  1348. c8,8
  1349. e
  1350. fPutObject1.tem
  1351. i
  1352. o
  1353. rText Classes
  1354. fCAbstractText.cp
  1355. i
  1356. fCAbstractText.h
  1357. i
  1358. fCEditText.cp
  1359. i
  1360. fCEditText.h
  1361. i
  1362. fCStyleTEClipboard.cp
  1363. i
  1364. fCStyleTEClipboard.h
  1365. i
  1366. fCStyleTEEditTask.cp
  1367. i
  1368. fCStyleTEEditTask.h
  1369. i
  1370. fCStyleTEStyleTask.cp
  1371. i
  1372. fCStyleTEStyleTask.h
  1373. i
  1374. fCStyleText.cp
  1375. x271436853,271436854
  1376. c0,47
  1377. c49,49
  1378. c48,419
  1379. e
  1380. fCStyleText.h
  1381. i
  1382. fCTextEditTask.cp
  1383. i
  1384. fCTextEditTask.h
  1385. i
  1386. fCTextStyleTask.cp
  1387. i
  1388. fCTextStyleTask.h
  1389. i
  1390. o
  1391. rVisual Architect Library
  1392. fCColorTextEnvirons.cp
  1393. x209781653,209781654
  1394. c0,27
  1395. c29,29
  1396. c28,570
  1397. e
  1398. fCColorTextEnvirons.h
  1399. i
  1400. fCFloatDirector.cp
  1401. i
  1402. fCFloatDirector.h
  1403. i
  1404. fCGridMDEF.cp
  1405. i
  1406. fCGridMDEF.h
  1407. i
  1408. fCIconButton.cp
  1409. x529659688,529659689
  1410. c0,26
  1411. c28,28
  1412. c27,515
  1413. e
  1414. fCIconButton.h
  1415. i
  1416. fCLine.cp
  1417. x314485202,314485203
  1418. c0,26
  1419. c28,28
  1420. c27,447
  1421. e
  1422. fCLine.h
  1423. i
  1424. fCPICTGrid.cp
  1425. x116441809,116441810
  1426. c0,43
  1427. c45,45
  1428. c44,278
  1429. e
  1430. fCPICTGrid.h
  1431. i
  1432. fCPICTGridDirector.cp
  1433. i
  1434. fCPICTGridDirector.h
  1435. i
  1436. fCPICTSelector.cp
  1437. i
  1438. fCPICTSelector.h
  1439. i
  1440. fCPictureButton.cp
  1441. i
  1442. fCPictureButton.h
  1443. i
  1444. fCPolyButton.cp
  1445. x531289659,531289660
  1446. c0,26
  1447. c28,28
  1448. c27,196
  1449. e
  1450. fCPolyButton.h
  1451. i
  1452. fCRectOvalButton.cp
  1453. x389148034,389148035
  1454. c0,26
  1455. c28,28
  1456. c27,140
  1457. e
  1458. fCRectOvalButton.h
  1459. i
  1460. fCRoundRectButton.cp
  1461. x296513971,296513972
  1462. c0,26
  1463. c28,28
  1464. c27,186
  1465. e
  1466. fCRoundRectButton.h
  1467. i
  1468. fCSelectorDirector.cp
  1469. i
  1470. fCSelectorDirector.h
  1471. i
  1472. fCShapeButton.cp
  1473. i
  1474. fCShapeButton.h
  1475. i
  1476. fCStaticText.cp
  1477. x234212368,234212369
  1478. c0,11
  1479. c13,13
  1480. c12,65
  1481. e
  1482. fCStaticText.h
  1483. i
  1484. fCSubviewDisplayer.cp
  1485. x48928559,48928560
  1486. c0,25
  1487. c27,27
  1488. c26,325
  1489. e
  1490. fCSubviewDisplayer.h
  1491. i
  1492. fCSwissArmyButton.cp
  1493. i
  1494. fCSwissArmyButton.h
  1495. i
  1496. fCTearOffDirector.cp
  1497. i
  1498. fCTearOffDirector.h
  1499. i
  1500. fDialogFunctions.cp
  1501. i
  1502. fDialogFunctions.h
  1503. i
  1504. fViewUtilities.cp
  1505. i
  1506. fViewUtilities.h
  1507. i
  1508. o
  1509. z2648,CW TCLHeaders.c
  1510. //
  1511. // TCL 2.0 CodeWarrior port
  1512. //
  1513. //    Precompiled headers
  1514. //
  1515. //    Use this file to build the precompiled header file, instead
  1516. //    of “TCL #includes.cpp” provided by Symantec.
  1517. //
  1518. //    UPDATED FOR CodeWarrior CW/7
  1519. //    Martin R. Wachter, 26 September 1995
  1520. //
  1521.  
  1522. // prevent multiple compilations
  1523.  
  1524. #ifndef CW_TCL_HDR
  1525. #define CW_TCL_HDR
  1526.  
  1527.  
  1528. // use Metrowerks’ standard precompiled header file
  1529.  
  1530. #include <MacHeaders.c>
  1531. #ifdef powerc
  1532.     #pragma precompile_target "CW TCLHeaders-PPC"
  1533. #else
  1534.     #pragma precompile_target "CW TCLHeaders-68K"
  1535. #endif    
  1536.  
  1537.  
  1538. #undef TRUE                        // redefined in <THINK.h>
  1539. #undef FALSE
  1540. #pragma cplusplus on            // wonder why this is necessary?
  1541.  
  1542.  
  1543. //________________________________________________________________________
  1544. //
  1545. // several new conditional compilation macros for the CodeWarrior port
  1546. //
  1547.  
  1548. #define TCL_CW_VERSION 7
  1549.     // Set this macro to the current release number of CodeWarrior
  1550.     // (currently CW/7). As features are added to CodeWarrior, this
  1551.     // macro will be used to maintain compatibility with older
  1552.     // versions.
  1553.     //
  1554.  
  1555. #if TCL_CW_VERSION<=7
  1556. #define TCL_NO_PRECOMPILED_TEMPLATES
  1557. #endif
  1558.     // In CW/5 it is not possible to precompile template definitions. *sigh*
  1559.     // This restriction should be lifted for CW/6.
  1560.  
  1561.     // In CW/7 it is *still* not possible to precompile template definitions
  1562.     // with inline functions.
  1563.  
  1564. #define TCL_USE_MW_OPER_NEW
  1565.     // Flag to use the optional Metrowerks implementation of "operator new".
  1566.     // Disable to route new/delete directly to NewPtr/DisposePtr, for easier
  1567.     // debugging.  Enable if you are not linking ANSI libraries.
  1568.     
  1569. #define TCL_NO_DEBUGGER_CALLS
  1570.     // Because all the Debugger() calls aren’t trapped by CW’s source-level
  1571.     // debugger. It’s just plain annoying to drop into MacsBug all the
  1572.     // time (especially in PPC code)!
  1573.  
  1574.             #define Debug_Throw
  1575.             #define Debug_Signal
  1576.             #include <UDebugging.h>
  1577.             #include <UException.h>
  1578.     
  1579. #define TCL_NO_PATCHES
  1580.     // Because LoadSeg_Patch doesn’t work with CW. Applies only
  1581.     // to 68K builds.
  1582.  
  1583. #define TCL_COMPILER_EXCEPTIONS
  1584.     // Optional switch to use the MW C/C++ compiler exceptions instead of BEL.
  1585.  
  1586. #ifndef TCL_COMPILER_EXCEPTIONS
  1587. #define TCL_USE_BEL                    // define to use Bedrock Exception Library
  1588. #endif
  1589.  
  1590. //________________________________________________________________________
  1591. //
  1592. // include the TCL standard headers
  1593. //
  1594.  
  1595. #include "TCL #includes.cpp"
  1596.  
  1597. //#ifndef TCL_NO_PRECOMPILED_CLASS
  1598. //#include "CSizeBox.h"                    // •• CW TCL temporary
  1599. //#endif
  1600.  
  1601. // (dis)allow object I/O (you may comment this out when you pre-compile)
  1602.  
  1603. #define TCL_OBJECT_IO
  1604.  
  1605.  
  1606. // make sure to prevent attempts at including precompiled headers again
  1607.  
  1608. #undef TCL_PCH
  1609.  
  1610.  
  1611. #endif  // #ifndef CW_TCL_HDR
  1612. z277,CW TCLHeaders.pch
  1613. //
  1614. // TCL 2.0 CodeWarrior port
  1615. //
  1616. //    Precompiled headers
  1617. //
  1618. //    Use this file to build the precompiled header file, instead
  1619. //    of “TCL #includes.cpp” provided by Symantec.
  1620. //
  1621. //    UPDATED FOR CodeWarrior CW/7
  1622. //    Martin R. Wachter, 26 September 1995
  1623. //
  1624.  
  1625. #include "CW TCLHeaders.c"
  1626. z1967,THINK.h
  1627.  
  1628. /*
  1629.  *  THINK.h - THINK C extensions to Apple headers
  1630.  *
  1631.  *  Copyright (c) 1991 Symantec Corporation.  All rights reserved.
  1632.  *
  1633.  *  These interfaces are based on material copyrighted
  1634.  *  by Apple Computer, Inc., 1985-1991.
  1635.  *
  1636.  *  This file contains material that has traditionally been part of
  1637.  *  the THINK C interfaces, but which does not appear in the Apple
  1638.  *  headers we are now using.  It is provided for backward compatibility.
  1639.  *
  1640.  */
  1641.  
  1642. #ifndef __THINK__
  1643. #define __THINK__
  1644.  
  1645. #ifndef __TYPES__
  1646. #include <Types.h>
  1647. #endif
  1648.  
  1649. #ifndef __FILES__
  1650. #include <Files.h>
  1651. #endif
  1652.  
  1653. #ifndef __QUICKDRAW__
  1654. #include <Quickdraw.h>
  1655. #endif
  1656.  
  1657. #ifdef __cplusplus
  1658. extern "C" {
  1659. #endif
  1660.  
  1661.  
  1662.     /*  SystemEdit arguments  */
  1663.  
  1664. enum {
  1665.     undoCmd,
  1666.     cutCmd = 2,
  1667.     copyCmd,
  1668.     pasteCmd,
  1669.     clearCmd
  1670. };
  1671.  
  1672.  
  1673.     /*  dCtlFlags bits  */
  1674.  
  1675. #define    dNeedLock        0x4000
  1676. #define dNeedTime        0x2000
  1677. #define dNeedGoodBye    0x1000
  1678. #define dStatEnable        0x0800
  1679. #define dCtlEnable        0x0400
  1680. #define dWritEnable        0x0200
  1681. #define dReadEnable        0x0100
  1682. #define drvrActive        0x0080
  1683. #define dRAMBased        0x0040
  1684. #define dOpened            0x0020
  1685.  
  1686.  
  1687.     /*  I/O traps  */
  1688.  
  1689. #define aRdCmd            2
  1690. #define aWrCmd            3
  1691. #define asyncTrpBit        0x0400
  1692. #define noQueueBit        0x0200
  1693.  
  1694.  
  1695.     /*  buttons  */
  1696.  
  1697. enum {
  1698.     OK = 1,
  1699.     Cancel
  1700. };
  1701.  
  1702.  
  1703.     /*  QuickDraw globals  */
  1704.  
  1705. extern GrafPtr    thePort;
  1706. extern Pattern    white;
  1707. extern Pattern    black;
  1708. extern Pattern    gray;
  1709. extern Pattern    ltGray;
  1710. extern Pattern    dkGray;
  1711. extern Cursor    arrow;
  1712. extern BitMap    screenBits;
  1713. extern long        randSeed;
  1714.  
  1715.  
  1716.     /*  Rect macros  */
  1717.  
  1718. #define topLeft(r)        (((Point *) &(r))[0])
  1719. #define botRight(r)        (((Point *) &(r))[1])
  1720.  
  1721.  
  1722.     /*  Booleans  */
  1723.  
  1724. #define TRUE            1
  1725. #define FALSE            0
  1726.  
  1727.  
  1728.     /*  param blocks  */
  1729.  
  1730. typedef IOParam ioParam;
  1731. typedef FileParam fileParam;
  1732. typedef VolumeParam volumeParam;
  1733. typedef CntrlParam cntrlParam;
  1734.  
  1735.  
  1736.     /*  multi-segment non-applications  */
  1737.  
  1738. void UnloadA4Seg(void *);
  1739.  
  1740.  
  1741.     /*  menu bar height (from Script.h)  */
  1742.  
  1743. #define GetMBarHeight() (* (short*) 0x0BAA)
  1744.  
  1745.  
  1746. #ifdef __cplusplus
  1747. }
  1748. #endif
  1749.  
  1750. #endif // __THINK__
  1751. z8348,ThinkSANE.h
  1752.  
  1753. /*
  1754.  *  SANE.h
  1755.  *
  1756.  *  Copyright (c) 1991 Symantec Corporation.  All rights reserved.
  1757.  *
  1758.  *  These interfaces are based on material copyrighted
  1759.  *  by Apple Computer, Inc., 1985-1991.
  1760.  *
  1761.  */
  1762.  
  1763. #ifndef __SANE__
  1764. #define __SANE__
  1765.  
  1766. #ifndef __TYPES__
  1767. #include <Types.h>
  1768. #endif
  1769.  
  1770.  
  1771.         /* ---------- exceptions ---------- */
  1772.         
  1773.         
  1774. #define INVALID            1
  1775. #define UNDERFLOW        2
  1776. #define OVERFLOW        4
  1777. #define DIVBYZERO        8
  1778. #define INEXACT            16
  1779.  
  1780. #define IEEEDEFAULTENV    0
  1781.  
  1782. typedef short exception, environment;
  1783.  
  1784. typedef struct {
  1785.     unsigned short    haltexceptions;
  1786.     unsigned short    pendingCCR;
  1787.     long            pendingD0;
  1788. } mischaltinfo;
  1789.  
  1790. typedef pascal void (*haltvector)(mischaltinfo *, void *src2, void *src, void *dst, short opcode);
  1791.  
  1792.  
  1793.         /* ---------- formatting ---------- */
  1794.  
  1795.  
  1796. #define SIGDIGLEN        20
  1797. #define DECSTROUTLEN    80
  1798.  
  1799. enum { FLOATDECIMAL, FIXEDDECIMAL };
  1800.  
  1801. typedef struct {
  1802.     char            sgn;
  1803.     short            exp;
  1804.     struct {
  1805.         unsigned char        length;
  1806.         unsigned char        text[SIGDIGLEN|1];
  1807.     }                sig;
  1808. } decimal;
  1809.  
  1810. typedef struct {
  1811.     char            style;
  1812.     short            digits;
  1813. } decform;
  1814.  
  1815.  
  1816.         /* ---------- round/compare/classify ---------- */
  1817.  
  1818.  
  1819. typedef enum { TONEAREST, UPWARD, DOWNWARD, TOWARDZERO } rounddir;
  1820. typedef enum { EXTPRECISION, DBLPRECISION, FLOATPRECISION } roundpre;
  1821.  
  1822. typedef enum {
  1823.     GREATERTHAN, LESSTHAN, EQUALTO, UNORDERED
  1824. } relop;
  1825.  
  1826. typedef enum {
  1827.     SNAN, QNAN, INFINITE, ZERONUM, NORMALNUM, DENORMALNUM
  1828. } numclass;
  1829.  
  1830. /*  low-level classify codes  */
  1831. enum { FCSNAN = 1, FCQNAN, FCINF, FCZERO, FCNORM, FCDENORM };
  1832.  
  1833. /*  NAN codes  */
  1834. enum {
  1835.     NANSQRT = 1, NANADD,
  1836.     NANDIV = 4,
  1837.     NANMUL = 8, NANREM,
  1838.     NANASCBIN = 17,
  1839.     NANCOMP = 20, NANZERO,
  1840.     NANTRIG = 33, NANINVTRIG,
  1841.     NANLOG = 36, NANPOWER, NANFINAN,
  1842.     NANINIT = 255
  1843. };
  1844.  
  1845.  
  1846.         /* ---------- high-level access ---------- */
  1847.  
  1848. #ifdef __cplusplus
  1849. extern "C" {
  1850. #endif
  1851.  
  1852. void procentry(environment *);
  1853. void procexit(environment);
  1854. void getenvironment(environment *);
  1855. void setenvironment(environment);
  1856. long testexception(exception);
  1857. void setexception(exception, long);
  1858. long testhalt(exception);
  1859. void sethalt(exception, long);
  1860. haltvector gethaltvector(void);
  1861. void sethaltvector(haltvector);
  1862. roundpre getprecision(void);
  1863. void setprecision(roundpre);
  1864. rounddir getround(void);
  1865. void setround(rounddir);
  1866.  
  1867. extended nextextended(extended, extended);
  1868. extended nextdouble(extended, extended);
  1869. extended nextfloat(extended, extended);
  1870. numclass classextended(extended);
  1871. numclass classdouble(extended);
  1872. numclass classfloat(extended);
  1873. numclass classcomp(extended);
  1874. long signnum(extended);
  1875. relop relation(extended, extended);
  1876. extended copysign(extended, extended);
  1877.  
  1878. void x80tox96(void *x80, void *x96);
  1879. void x96tox80(void *x96, void *x80);
  1880. void num2dec(const decform *, extended, decimal *);
  1881. extended dec2num(const decimal *);
  1882. void str2dec(const void *, short *, decimal *, Boolean *);
  1883. void cstr2dec(const void *, short *, decimal *, Boolean *);
  1884. void dec2str(const decform *, const decimal *, void *);
  1885. extended str2num(void *);
  1886. void num2str(decform *, extended, void *);
  1887.  
  1888. extended annuity(extended, extended);
  1889. extended compound(extended, extended);
  1890. extended ipower(extended, short);
  1891. extended power(extended, extended);
  1892. extended randomx(extended *);
  1893. extended remainder(extended, extended, short *);
  1894. extended scalb(short, extended);
  1895.  
  1896. extended nan(short);
  1897. #define inf()                    __inf
  1898. #define pi()                    __pi
  1899. extern extended __inf, __pi;
  1900.  
  1901. extended _fp1(short, extended);
  1902. extended _elems1(short, extended);
  1903.  
  1904. #ifndef _H_math
  1905. #define atan(x)                    _elems1(FATANX, x)
  1906. #define cos(x)                    _elems1(FCOSX, x)
  1907. #define exp(x)                    _elems1(FEXPX, x)
  1908. #define fabs(x)                    _fp1(FABSX, x)
  1909. #define log(x)                    _elems1(FLNX, x)
  1910. #define sin(x)                    _elems1(FSINX, x)
  1911. #define sqrt(x)                    _fp1(FSQRTX, x)
  1912. #define tan(x)                    _elems1(FTANX, x)
  1913. #endif
  1914.  
  1915. #define exp1(x)                    _elems1(FEXP1X, x)
  1916. #define exp2(x)                    _elems1(FEXP2X, x)
  1917. #define log1(x)                    _elems1(FLN1X, x)
  1918. #define log2(x)                    _elems1(FLOG2X, x)
  1919. #define logb(x)                    _fp1(FLOGBX, x)
  1920. #define rint(x)                    _fp1(FRINTX, x)
  1921.  
  1922.  
  1923.         /* ---------- low-level access ---------- */
  1924.  
  1925.  
  1926. pascal void fp68k(const void *,...) = 0xA9EB;
  1927. pascal void elems68k(const void *,...) = 0xA9EC;
  1928. pascal void decstr68k(const void *,...) = 0xA9EE;
  1929.  
  1930. #ifdef __cplusplus
  1931. }
  1932. #endif
  1933.  
  1934. enum {
  1935.     
  1936.         /*  operand format masks  */
  1937.  
  1938.     FFEXT = 0x0000,
  1939.     FFDBL = 0x0800,
  1940.     FFSGL = 0x1000,
  1941.     FFINT = 0x2000,
  1942.     FFLNG = 0x2800,
  1943.     FFCOMP = 0x3000,
  1944.  
  1945.         /*  precision code masks  */
  1946.  
  1947.     FCEXT = 0x0000,
  1948.     FCDBL = 0x4000,
  1949.     FCSGL = (short) 0x8000,
  1950.  
  1951.         /*  operation code masks (fp68k)  */
  1952.  
  1953.     FOADD = 0x0000,
  1954.         FADDX = FOADD + FFEXT,
  1955.         FADDD = FOADD + FFDBL,
  1956.         FADDS = FOADD + FFSGL,
  1957.         FADDI = FOADD + FFINT,
  1958.         FADDL = FOADD + FFLNG,
  1959.         FADDC = FOADD + FFCOMP,
  1960.     FOSUB = 0x0002,
  1961.         FSUBX = FOSUB + FFEXT,
  1962.         FSUBD = FOSUB + FFDBL,
  1963.         FSUBS = FOSUB + FFSGL,
  1964.         FSUBI = FOSUB + FFINT,
  1965.         FSUBL = FOSUB + FFLNG,
  1966.         FSUBC = FOSUB + FFCOMP,
  1967.     FOMUL = 0x0004,
  1968.         FMULX = FOMUL + FFEXT,
  1969.         FMULD = FOMUL + FFDBL,
  1970.         FMULS = FOMUL + FFSGL,
  1971.         FMULI = FOMUL + FFINT,
  1972.         FMULL = FOMUL + FFLNG,
  1973.         FMULC = FOMUL + FFCOMP,
  1974.     FODIV = 0x0006,
  1975.         FDIVX = FODIV + FFEXT,
  1976.         FDIVD = FODIV + FFDBL,
  1977.         FDIVS = FODIV + FFSGL,
  1978.         FDIVI = FODIV + FFINT,
  1979.         FDIVL = FODIV + FFLNG,
  1980.         FDIVC = FODIV + FFCOMP,
  1981.     FOSQRT = 0x0012,
  1982.         FSQRTX = FOSQRT + FFEXT,
  1983.     FOREM = 0x000C,
  1984.         FREMX = FOREM + FFEXT,
  1985.         FREMD = FOREM + FFDBL,
  1986.         FREMS = FOREM + FFSGL,
  1987.         FREMI = FOREM + FFINT,
  1988.         FREML = FOREM + FFLNG,
  1989.         FREMC = FOREM + FFCOMP,
  1990.     FORTI = 0x0014,
  1991.         FRINTX = FORTI + FFEXT,
  1992.     FOTTI = 0x0016,
  1993.         FTINTX = FOTTI + FFEXT,
  1994.     FOSCALB = 0x0018,
  1995.         FSCALBX = FOSCALB + FFEXT,
  1996.     FOLOGB = 0x001A,
  1997.         FLOGBX = FOLOGB + FFEXT,
  1998.     FONEG = 0x000D,
  1999.         FNEGX = FONEG + FFEXT,
  2000.     FOABS = 0x000F,
  2001.         FABSX = FOABS + FFEXT,
  2002.     FOCPYSGN = 0x0011,
  2003.         FCPYSGNX = FOCPYSGN + FFEXT,
  2004.     FONEXT = 0x0013,
  2005.         FNEXTX = FONEXT + FFEXT,
  2006.         FNEXTD = FONEXT + FFDBL,
  2007.         FNEXTS = FONEXT + FFSGL,
  2008.     FOX2Z = 0x0010,
  2009.         FX2X = FOX2Z + FFEXT,
  2010.         FX2D = FOX2Z + FFDBL,
  2011.         FX2S = FOX2Z + FFSGL,
  2012.         FX2I = FOX2Z + FFINT,
  2013.         FX2L = FOX2Z + FFLNG,
  2014.         FX2C = FOX2Z + FFCOMP,
  2015.     FOZ2X = 0x000E,
  2016. /*        FX2X = FOZ2X + FFEXT,    */
  2017.         FD2X = FOZ2X + FFDBL,
  2018.         FS2X = FOZ2X + FFSGL,
  2019.         FI2X = FOZ2X + FFINT,
  2020.         FL2X = FOZ2X + FFLNG,
  2021.         FC2X = FOZ2X + FFCOMP,
  2022.     FOB2D = 0x000B,
  2023.         FX2DEC = FOB2D + FFEXT,
  2024.         FD2DEC = FOB2D + FFDBL,
  2025.         FS2DEC = FOB2D + FFSGL,
  2026.         FI2DEC = FOB2D + FFINT,
  2027.         FL2DEC = FOB2D + FFLNG,
  2028.         FC2DEC = FOB2D + FFCOMP,
  2029.     FOD2B = 0x0009,
  2030.         FDEC2X = FOD2B + FFEXT,
  2031.         FDEC2D = FOD2B + FFDBL,
  2032.         FDEC2S = FOD2B + FFSGL,
  2033.         FDEC2I = FOD2B + FFINT,
  2034.         FDEC2L = FOD2B + FFLNG,
  2035.         FDEC2C = FOD2B + FFCOMP,
  2036.     FOCMP = 0x0008,
  2037.         FCMPX = FOCMP + FFEXT,
  2038.         FCMPD = FOCMP + FFDBL,
  2039.         FCMPS = FOCMP + FFSGL,
  2040.         FCMPI = FOCMP + FFINT,
  2041.         FCMPL = FOCMP + FFLNG,
  2042.         FCMPC = FOCMP + FFCOMP,
  2043.     FOCPX = 0x000A,
  2044.         FCPXX = FOCPX + FFEXT,
  2045.         FCPXD = FOCPX + FFDBL,
  2046.         FCPXS = FOCPX + FFSGL,
  2047.         FCPXI = FOCPX + FFINT,
  2048.         FCPXL = FOCPX + FFLNG,
  2049.         FCPXC = FOCPX + FFCOMP,
  2050.     FOCLASS = 0x001C,
  2051.         FCLASSX = FOCLASS + FFEXT,
  2052.         FCLASSD = FOCLASS + FFDBL,
  2053.         FCLASSS = FOCLASS + FFSGL,
  2054.         FCLASSC = FOCLASS + FFCOMP,
  2055.     FOGETENV = 0x0003,
  2056.         FGETENV = FOGETENV,
  2057.     FOSETENV = 0x0001,
  2058.         FSETENV = FOSETENV,
  2059.     FOTESTXCP = 0x001B,
  2060.         FTESTXCP = FOTESTXCP,
  2061.     FOSETXCP = 0x0015,
  2062.         FSETXCP = FOSETXCP,
  2063.     FOPROCENTRY = 0x0017,
  2064.         FPROCENTRY = FOPROCENTRY,
  2065.     FOPROCEXIT = 0x0019,
  2066.         FPROCEXIT = FOPROCEXIT,
  2067.     FOSETHV = 0x0005,
  2068.         FSETHV = FOSETHV,
  2069.     FOGETHV = 0x0007,
  2070.         FGETHV = FOGETHV,
  2071.     
  2072.         /*  operation code masks (elems68k)  */
  2073.         
  2074.     FOLNX = 0x0000,
  2075.         FLNX = FOLNX,
  2076.     FOLOG2X = 0x0002,
  2077.         FLOG2X = FOLOG2X,
  2078.     FOLN1X = 0x0004,
  2079.         FLN1X = FOLN1X,
  2080.     FOLOG21X = 0x0006,
  2081.         FLOG21X = FOLOG21X,
  2082.     FOEXPX = 0x0008,
  2083.         FEXPX = FOEXPX,
  2084.     FOEXP2X = 0x000A,
  2085.         FEXP2X = FOEXP2X,
  2086.     FOEXP1X = 0x000C,
  2087.         FEXP1X = FOEXP1X,
  2088.     FOEXP21X = 0x000E,
  2089.         FEXP21X = FOEXP21X,
  2090.     FOXPWRI = (short) 0x8010,
  2091.         FXPWRI = FOXPWRI,
  2092.     FOXPWRY = (short) 0x8012,
  2093.         FXPWRY = FOXPWRY,
  2094.     FOCOMPOUND = (short) 0xC014,
  2095.         FCOMPOUND = FOCOMPOUND,
  2096.     FOANNUITY = (short) 0xC016,
  2097.         FANNUITY = FOANNUITY,
  2098.     FOSINX = 0x0018,
  2099.         FSINX = FOSINX,
  2100.     FOCOSX = 0x001A,
  2101.         FCOSX = FOCOSX,
  2102.     FOTANX = 0x001C,
  2103.         FTANX = FOTANX,
  2104.     FOATANX = 0x001E,
  2105.         FATANX = FOATANX,
  2106.     FORANDX = 0x0020,
  2107.         FRANDX = FORANDX,
  2108.         
  2109.         /*  operation code masks (decstr68k)  */
  2110.     
  2111.     FOPSTR2DEC = 0x0002,
  2112.         FPSTR2DEC = FOPSTR2DEC,
  2113.     FOCSTR2DEC = 0x0004,
  2114.         FCSTR2DEC = FOCSTR2DEC,
  2115.     FODEC2STR = 0x0003,
  2116.         FDEC2STR = FODEC2STR
  2117. };
  2118.  
  2119.  
  2120.         /* ---------- mixed-case interface ---------- */
  2121.  
  2122.  
  2123. typedef decimal Decimal;
  2124. typedef decform DecForm;
  2125. #define Dec2Str        dec2str
  2126. #define Str2Dec        str2dec
  2127. #define CStr2Dec    cstr2dec
  2128.  
  2129.  
  2130. #endif // __SANE__
  2131. o
  2132.